home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00882_TH-IN 2.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  562 b   |  23 lines
  1. on enterFrame
  2.   global gMaxBoutons, g1erSprChr
  3.   curseur(6)
  4.   repeat with i = g1erSprChr to gMaxBoutons
  5.     puppetSprite(i, 1)
  6.   end repeat
  7. end
  8.  
  9. on exitFrame
  10.   global gSurvolPrec, gPage, g1erSprLoc, gMaxBoutons, gCDpath, gLocLabel
  11.   set gPage to 0
  12.   JukeBox(0, " ")
  13.   set the visible of sprite g1erSprLoc to 0
  14.   set the visible of sprite (g1erSprLoc + 1) to 0
  15.   repeat with i = g1erSprLoc + 2 to gMaxBoutons
  16.     set the visible of sprite i to 1
  17.   end repeat
  18.   set the visible of sprite 2 to 1
  19.   set gLocLabel to "TH:RN"
  20.   set gSurvolPrec to -1
  21.   curseur(-1)
  22. end
  23.